home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ptrp25dm.zip / ETEST13.TRP < prev    next >
Text File  |  1995-03-19  |  200b  |  11 lines
  1. procedure main
  2. var
  3.         p : pointer
  4. endVar
  5.         if (p = nil) 
  6.                 writeln('It Is Nil')
  7.         else    
  8.                 writeln('The pointer is ', p)
  9.         endif
  10. endProc
  11.